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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


FTWARE as FURNISHED UNDER A LICENSE AND MAY BE USED AND sores 
Ma ei NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
N OF THE ABOVE COPYRIGHT NOTICE. THIS soF TWARE OR ANY OTHER 
HEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
RSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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* 
* 
* 
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* 
* 
* 
* 
* 
* 
* 
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mer <a 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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V03-006 ACG0383 Andrew C. Goldstein, 19-Dec-1983 16:15 
Fix register use bug in skipping active signal 

v03-005 ACG0357 Andrew C. Goldstein, Fg 18:08 
Turn off T bit when unwindin through AST's and 
into the frame of the exception. 

V03-004 ACG0348 Andrew C. Goldstein, 4-Aug-1983 17:07 
Fix unwinding into frame of exception 

V03-003 ACG0336 Andrew C. Goldstein, AL Stay 15:48 
Add signal/stop longword to signal args in SS 

v03-002 KDM0002 Kathleen D. Morse 28-Jun-1982 
Add $SPSLDEF. 

v03-001 accdens Andrew C. Goldstein, 10-Jun-1982 18:22 


ix storing of PC into AST frame when unwinding thru AST 
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8g SCHFDEF ;DEFINE CONDITION HANDLING ARGLIST OFFSETS 
60 SPSLDEF ‘DEFINE PROGRAM STATUS LONGWORD 

61 SSSDEF {DEFINE SYSTEM STATUS VALUES 

8 

64 + LOCAL SYMBOLS 

66 t ARGUMENT LIST OFFSET DEFINITIONS 

6 a 

63 DEPADR=4 ;ADDRESS OF NUMBER OF FRAMES TO UNWIND 
20 NEWPC=8 [CHANGE OF FLOW FINAL RETURN ADDRESS 
72; 

rs : CALL FRAME OFFSET DEFINITIONS 

75° 

0% HANDLER=0 sCONDITION HANDLER ADDRESS 

77 SAVPSW=4 :SAVED PSW FROM CALL 

28 SAVMSK=6 :REGISTER SAVE MASK 

79 SAVAP=8 | ;SAVED AP REGISTER IMAGE 

80 SAVFP=12 [SAVED FP REGISTER IMAGE 

81 SAVPC=16 SSAVED PC REGISTER IMAGE 

82 SAVRG=20 TOTHER SAVED REGISTER IMAGES 

84 .PSECT YEXEPAGED, BYTE :PAGED PSECT 


oe tale 
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.SBTTL UNWIND PROCEDURE CALL STACK 
EXESUNWIND = UNWIND PROCEDURE CALL STACK 


ras service PROVIDES alte wy te TO UNWIND THE PROCEDURE CALL STACK 
TO A IED DEPTH AFTER 5 NPT TOMaL OR SOFTWARE-DETECTED EXCEPTION 

AS CHANGE 
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INPUTS: 


DEPADR(AP) = ADDRESS OF NUMBER OF FRAMES TO UNWIND. 
NEWPC(AP) = CHANGE OF FLOW FINAL RETURN ADDRESS. 


R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO FULLY UNWIND CALL STACK. 
RO ao aren = CALL STACK NOT ACCESSIBLE TO CALLING ACCESS 


RO = SS$_INSFRAME = INSUFFICIENT CALL FRAMES TO UNWIND TO 
SPECIFIED DEPTH. 


RO = SS$_NOSIGNAL - NO SIGNAL IS CURRENTLY ACTIVE TO UNWIND. 
RO = SS$_UNWINDING - UNWIND ALREADY IN PROGRESS. 

RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_NORMAL - NORMAL COMPLETION. 


Bete Se Se Ge Se Ge Se Oe Ge Se Se Ge Se Ge Se Se Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se 


003¢ 
9E 


6D 0000'CF 
54 5D 00 


;SET ADDRESS OF FIRST FRAME TO EXAMINE 


SEARCH CALL STACK FOR A FRAME THAT WAS CREATED BY A CALL FROM siaee SIGNAL 
DISPATCH VECTOR OR BY A CALL FROM THE UNWIND SIGNAL DISPATCHER 


105: MOV SAVFPURG) GRO GET ADDRESS, OF PREVIOUS. FRARE 

beer #SYSSCALL. HANDL+4, savrccht Ge ich trEROR CONDITION HANDLER DISPATCHER? 
Hin #CALLUNWIND+4 ,SAVPC(R4) ; at L_FROM UNWIND SIGNAL DISPATCHER? 
novel. #SS$_UNWINDING,RO :SET ALREADY UNWINDING 


50. 0900 8F 
54 OC ‘6 
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i§ 
14 
1? 
12 
18 

19 
$0 

1 

3 -ENTRY EXESUNWIND,“M<R2,R3,R4,R5> 
& MOVAB WPEXESSIGTORET, (FP) * sESTABLISH CONDITION HANDLER 
5 MOVL oR4 
6 

4 
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0 

4 
4 
at 
42 
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¢ SET TO UNWIND PROCEDURE CALL STACK TO SPECIFIED DEPTH 


WOouwor NOC OF 
Wo-NOWwWOo--0 9 


oOmMmn—GOo0—-OwWwo 
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oO 


ooooo 


er ae :GET age OF NUMBER OF FRAMES TO UNWIND 
; IF EQL NONE SPECIFIED 

{hg) «RS 3GET NUMBER OF FRAMES TO UNWIND 

R4,R2 COPY CURRENT os ADD 


DRESS 
OLOSP :CALCULATE VALUE OF SP BEFORE CALL 
CHFSL_MCHARGLST+4(R2),R2- :GET ADDRESS OF MECHANISM ARGUMENT LIST 
#1, CHFSL_MCH_DEPTH(R25,R3 ; CALCULATE DEPTH OF ESTABLISHER'S CALLER 


;1F LEQ NO FRAMES REMOVE 
een :SET CONDITION HANDLER UNWIND ADDRESS 


SAVFP(R4) ,R4 He ADDRESS OF Seat thn FRAME 
100$ :1F EQL fe ey RAMES 
ANY MORE FRAMES TO CONSIDER? 
65$ sBRANCH IF YES 
DEPADR (AP) ARE WE UNWINDING TO CALLER OF ESTABLISHER? 
DON'T TOUCH HANDLER FRAMES 


;BRANCH IF YES = 
ESYSSCALL_HANDL+4 ,SAVPC(RA) peott FROM CONDITION DISPATCHER? 
R4 ,R2 +3 +¢: ADDRESS OF ae cae 


OLOSP ALCULATE VALUE OF SP BEFORE CAL 
CHF SL_MCHARGLST+4(R2), R2° eet ADDRESS OF ey ARGUMENT LIST 
cHEst_ MCH_DEPTH(R2) sCHECK IF THIS IS A ees NDLER 


IF SO, DO 
CHFSL ACHFRAME(R2) RS :GET ESTABLISHER 
RGR UNWOUND TO ESTABLISHER FRAME? 


65 QL Y 

B*LOOPUNWIND,RO :SET FRAME UNWIND ADDRESS 
SAVFP(R4) ,R4 :GET ADDRESS OF PREVIOUS FRAME 
70$ [LOOP AS LONG AS LINKAGE IS VALID 
100$ ‘ZERO FP - BAD STACK 

Re ANY, MORE FRAMES TO CONSIDER? 
B°LOOPUNUIND ,RO 'SET FRAME UNWIND ADDRESS 

60$ : 


OF FLOW RETURN IF NEW ADDRESS SPECIFIED 


NEWPC (AP) ,RO 3GET CHANGE OF FLOW RETURN ADDRESS 
;1F EQL NONE SPECIFIED 
AVPC(R4) ,ASYSSCALL -HANDL $4 | * CHECK IF THIS IS A HANDLER FRAME 
4$ ;BRANCH IF NOT 


; TO HERE IF THE FRAME BEING UNWOUND TO IS THE FRAME IN WHICH THE SIGNAL 
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yone000 UNWIND PROCEDURE CALL STACK et ett) at ee me oh 
OAE 0 ; OCCURRED (DETECTED BY THE FACT THAT SAveC IN THE FRAME ABOUT 0. BE 
AE 1 ; PLUGGED IS THE HANDLER CALL SITE). IF WE ARE STORING A NEW PC 
OAE : ; WE HAVE TO TAKE SPECIAL HANDLING SO THAT THE SIGNAL ARGUMENT is Fis 
AE ; REMOVED BEFORE ALLOWING EXECUTION TO PROCEED. THIS IS DO NE RY $08 NG 
AE 4 ; THE DESIRED NEW PC IN THE PC OF THE SIGNAL VECTOR, AND SETTING THE 
AE % ; RETURN PC TO A PIECE OF CODE THAT WILL CLEAN UP THE EXCEPTION. 
0 Oat 3 110$: MOVL R4,R2 :GET POINTER TO STACK FRAME 
“oe 0 008 08 BSBW  OLDSP [FIND THE EXCEPTION ARG LIST 
52 0 D0 084 0 MOVL ait SIGARGLST+4(R2),R2 ;GET SIGNAL VECTOR 
9A 0088 210 MOVZBL <-1(R2J,R1 GET ORIGINAL SIG ARG T 
“A341 + D0 OBC 11 MOVL 4(R2)CR1 TORE PC IN NEXT TO LAST LONGWORD 
6241 t80 0010 CA 00C 1 BICL PPsi gn. eNTPSCSM. FPD!PSLSh. TBIT!PSL$M_TP, (R2)C 
0C9 21 LEAN OUT OCD [INSTRUCTION CONTEXT 
50 O1SS'CE 9€ 90c9 1 MOVAB W*REMSIGNAL,RO SADDRESS OF CLEANUP ROUTINE 
0A 10 aoe 18 94$: BSBB  SETPC :SET NEW FINAL RETURN ADDRESS 
50. (01 3¢ 900 vv 95$: MOVZUL #SS$_NORMAL ,RO ‘SET NORMAL COMPLETION 
50 012C 8F $C 00D4 219 1008: MOVZWL #SS$_INSFRAME,RO ‘SET INSUFFICIENT FRAMES 
04 0009 0 RET : 
Sopa $53 
OODA $i 3 SUBROUTINE To, STORE UNWIND PC. Hy CHECKS IF THE FRAME BEING ALTERED 
OODA 4 ; IS AN AST CALL FRAME. RATHER THAN PLUG ITS RETURN PC L 
OODA 5 : IT RETURN To" THE AST DISPATCHER, WHO WILL DISMISS THE AST INSTEAD, 
OODA 6 : WE PLUG THE INTERRUPT PC OF THE AST, SO THE REI GOES BACK TO 
OODA fi : LOOPUNWIND TO CONTINUE WITH THE AST DISMISSED. 
OODA 9° 
00000000'8F 10 A4 D1 OODA 0 SETPC: CMPL § SAVPC(R4),#EXESASTRET ;CHECK IF FRAME IS AN AST 
13 Q0E2 1 BEQL Ss [BRANCH IF YE 
10 a4 50 dd 0 MOVL RO, SAVPC(R4) [SET FRAME UNWIND ADDRESS 
05 0 RSB 
2 54 00 10$:  MOVL R4,R2 
0068 30 BSBW OL DSP sEIND THE. START OF THE AST ARG LIST 
10 a2 50.~—s0 MOVL 6(R2) AND STUFF As C 
14 A2 ¢8000010 BF CA BICL PPSLSne CM! PSLSM_ FPD!PSL SH TBUTIPSLSM 


P,20(R2) 
;CLEAN OUT OCD [INSTRUCTION CONTEXT 


0&4 32 

O0E8 23 

OOE9 34 

00E9 5 

OOEC 36 

OOEF 

OOF 8 

OFB 9 

05 OOFB 240 RSB 

OOFC 241 ; 
FC 4g : 3; UNWIND HANDLER FRAME 
Fe te : 

OFC 245 STARTUNWIND: TART OF ACTUAL UNWIND 

50 OC AE DO O0FC 46 MOVL CHF SL_MCHARGLST+4(SP) RO’ ste ADDRESS OF MECHANISM ARGUMENT LIST 
50 0C AO 7D 106 ‘s MOVO $CHFSLIMCH_SAVRO(RO),RO ;RESTORE REGISTERS RO AND 

104 249 ; 

i 30 >; UNWIND CALL FRAME SIGNALING CONDITION HANDLER IF ONE IS SPECIFIED 
104 3g 

104 3 -ENABL LSB 

104 4 LOOPUNWIND: ;UNWIND CALL FRAME 

6D 5 104 33 TSTL (FP) :CONDITION HANDLER SPECIFIED? 
1€ 1 106 5 BEQL 10% :I1F EQL NO 
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et a ss SS = ot as as 4 ss 


“SEP=19 


MOV2WL #SS$_UNWIND,-(SP? 
PUSHL #1 


#2 
#*M<RO,R1> 
#0 


FP 
ae 


28(SP) 


#2 P) 


acF 
CHFS$L_MCH_SAVRO(SP) ,RO 


SAVRGTFP) AP 
SAVMSK (FPS ,208 


#1, SAVMSK (FP) ,308 
SAVPC(FP) ,MEXESASTRET 
#*M<R1,R2> 

FP,R2 

OLOSP 

RI 

RO, 8(R2) 

Re 


(SP)+ 
EXESCONTSIGNAL 
LSB 
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s 
;PUSH UNWIND SIGNAL CONDITION 
;PUSH NUMBER OF SIGNAL ARGUMENTS 
sPUSH STOP INDICATOR 
HAS 2+ Chead ces RO AND R1 


AME 
PUSH FRAME ADDRESS 
; NUMBER OF MECHANISM ARGUMENTS 
:PUSH ADDRESS OF MECHANISM ARGUMENTS 
ADDRESS OF SIGNAL ARGUMENTS 


D IN HANDLER 
VALUES FOR RO AND R1 
f OF REGISTER SAVE AREA 
NOT SAVED 
F ey ae RESTORATION 


TRETRIEV 
:GET ADD 


; UBSEQUENT RESTORATION 
ABOUT TO UNWIND AN AST? 

BRANCH IF NOT 

SAVE R1 AND R2 


:EIND, THE AST PARAMETER LIST 
‘STUFF RO AND R1 SO THEY WILL PASS THROUGH 
SRESTORE R2 


; UNWIND TRANSFERS TO HERE WHEN A NEW PC IS GIVEN IN UNWINDING TO THE 
; E_IN WHICH THE SIGNAL OCCURRED. WE MUST CLEAN THE EXCEPTION OFF 
; THE STACK BEFORE RESUMING EXECUTION. 


;REMOVE JSB RETURN ADDRESS 
:LET EXCEPTION MODULE DO THE REST 
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A 3 ~SBTTL CALCULATE VALUE OF SP BEFORE CALL 
A 36 ; SUBROUTINE TO CALCULATE VALUE OF SP BEFORE CALL 
15a 298 
7E 06 A2 02 0 EF 015A 38 OLDSP: EXTZV #14 #3 SAVISK (R ),-(SP) :GET STACK ALIGNMENT BIAS 
51 06 A2 OC EF 0160 0 EXTZV #0,#12.SAVMSK(R2) .R1 [GET REGISTER SAVE MASK 
2g 14 C0 166 1 ADDL  #SAVRG.R2 TADD OFFSET TO REGISTER SAVE AREA 
5 BF CO 016 3 ADDL  (SP)+,R2 :ADD STACK ALIGNMENT BIAS 
03 E9 016C 10$:  BLBC  R1,208 TIF LBC CORRESPONDING REGISTER NOT SAVED 
52 04 5 16F 304 DDL ‘ADJUST FOR SAVED REGISTER 
51 51. FF BF 128 08 20$: ASHL #-1,R1,R1 TANY MORE REGISTERS SAVED? 
F312 «#017 6 BNEG 108 :IF NEQ YES 
05 0179 30 RSB ; 
017A 308 
017A 309 END 
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Symbol table 


CALLUNWIND 

CHF SL_MCHARGLST 
CHF SL-MCH_DEPTH 
CHF SL_MCH_FRAM 

CHF SL_-MCH SAVR 

CHFSL_SIGARGLST 
DEP paon 


EXESASTRET 
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EXESSIGTORET 

EXESUNWIND 
ANDLER 
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PSECT name 


69090000 ; 
QO00ITA ¢ ( 


NOPIC USR CON 
NOPIC USR CON 
NOPIC USR CON 


OSHR NOEXE NORD — he 
HR EXE RD 


LCL N 
LCL NOSH 
LCL NOSHR EXE RD uRT NOV 


ABS EC BYTE 
. ABS NOVEC BYTE 
37 ‘} 02 ( 2.) REL EC BYTE 


CPU Time 


Page faults 


Initialization 
Command processing 


Pass 1 

Symbol table sort 
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feet oe $  $9:00:00-85 69:00:00 0 


Assembler run totals 431 :00:09.1 


They orking (33 Limit a Mb pages. 

26747 hag (55 pages) of virtual memory were used to buffer the ke plage ee gode 

There were 30 pages of symbol table space bese to hold 479 non-local and 21 local symbols. 
309 source Cinee were read in Pass 1, producing 17 object records in Pass 2. 

10 pages of virtual memory were used to define 9 macros. 


Macro Library name Macros defined 


-$255$DUA28: hats. -OBJILIB m8: 1 0 
“$255$DUA28: CSYSLIBJSTAR -MLB;2 6 
TOTALS (all Libraries) 6 


529 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSUNWIND/OBJ=O0BJ$:SYSUNWIND MSRC$:SYSUNWIND/UPDATE=(ENH$:SYSUNWIND) +EXECML$/LIB 
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